home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / util / boot / BangerVers.lha / BangerVersionCopy.dopus < prev   
Text File  |  1995-08-30  |  1KB  |  52 lines
  1. /* BangerVersionCopy.dopus kopiert mit DOpus Files und checkt die Versionen
  2.    Autor: Andre´ Trettin
  3. Codename: Banger
  4.    Begin: 30-Aug-95 00:00:15
  5.  Version: $VER: BangerVersionCopy.dopus 1.001 (30-Aug-95)  */
  6.  
  7. options results
  8. options failat 21
  9. address DOPUS.1
  10. busy on
  11. status 3
  12. QWin=result
  13. ZWin=1-QWin
  14. status 13 QWin
  15. QPath=result
  16. status 13 ZWin
  17. ZPath=result
  18. status 26 set 'Kopiere'
  19. getselectedfiles '°' QWin
  20. if result='' then do
  21.     busy off
  22.     exit
  23. end
  24. FileListe=result
  25. rest='a-z'
  26. CopyVar=0
  27. do until rest=''
  28.     parse value FileListe with FileName '°' rest
  29.     FileListe=rest
  30.     OldFile=ZPath||FileName
  31.     NewFile=QPath||FileName
  32.     address command 'BangerVersion 'NewFile' QUIET'
  33.     if exists(OldFile) then do
  34.         address command 'BangerVersion 'OldFile' QUIET'
  35.         Rescan QWin
  36.         Rescan ZWin
  37.         FileInfo FileName '°' ZWin
  38.         OldFileInfos=result
  39.         FileInfo FileName '°' QWin
  40.         NewFileInfos=result
  41.         parse value OldFileInfos with Name1 '°' Groesse1 '°' F1 '°' F2 '°' F3 '°' F4 '°' F5 '°' Version1 '°' F6
  42.         parse value NewFileInfos with Name2 '°' Groesse2 '°' F1 '°' F2 '°' F3 '°' F4 '°' F5 '°' Version2 '°' F6
  43.         Request 'neues File: ' Name2 ' ' Groesse2 ' ' Version2'0a0a'x'altes File: ' Name1 ' ' Groesse1 ' ' Version1
  44.         if result==0 then CopyVar=1
  45.     end
  46.     if CopyVar==0 then copy FileName ZPath
  47.     CopyVar=0
  48. end
  49. status 26 set 'Weiter'
  50. busy off
  51.  
  52.